home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 1994 August / August CD.bin / Shareware / Games / Core War / Battle Programs / contest89 / QUARTER2.RED < prev    next >
Text File  |  1991-08-12  |  2KB  |  39 lines
  1. ;
  2. ; Quarter II
  3. ;
  4. ; by Stefan HanBgen
  5. ;
  6. ; Copies a killer to every quater of the core, and splits into four 
  7. ; processes, each one bombing its slice of memory.  Not very subtle, 
  8. ; but quite powerful since the killers produce a bomb with every 
  9. ; second instruction, and are difficult to hit.  The killers destroy 
  10. ; each other after they have bombed through their quater, but the 
  11. ; battle should be decided before this happens.  Speed is the 
  12. ; important factor.
  13. ;
  14. Z1       DAT             # 2068   ; pointer to copies, the Killers are
  15. Z2       DAT             # 4115   ;  placed at equal distances in memory
  16. Z3       DAT             # 6162   ;  formula: zi = i * slen / 4 + dist
  17.                                   ;   where slen = 8192        arena size
  18.                                   ;   and   dist = loop - z1   offset
  19. START    MOV     LOOP    < Z2     ; copy one Killer
  20.          MOV     KILL    < Z2     ; 
  21.          MOV     INC     < Z2     ;
  22.          SPL   @ Z2               ; spawn copied Killer
  23.          MOV     LOOP    < Z1     ; copy another Killer
  24.          MOV     KILL    < Z1     ;
  25.          MOV     INC     < Z2     ;
  26.          SPL   @ Z1               ; spawn the second Killer
  27.          MOV     LOOP    < Z3     ; for the third time, copy and
  28.          MOV     KILL    < Z3     ;
  29.          MOV     INC     < Z2     ;
  30.          SPL   @ Z3               ; spawn a Killer
  31.          JMP     LOOP             ; jump to the fourth Killer
  32. PTR      DAT             # 0      ;
  33. INC      ADD   # 4         PTR    ;
  34. KILL     MOV     PTR     < PTR    ; bomb with DAT
  35. LOOP     JMP     LOOP             ; at every other location in the arena
  36.          END     START
  37.  
  38.  
  39. o